HPAVC/HPAVC CD-ROM.iso/CON-03A.ZIP/EDITOR.PAS

Pascal/Delphi Source File | 1995-03-23 | 3KB | 109 lines

unit editor;

interface

uses crt,dos,ansi_drv;

procedure write_picture(pic : string);

implementation

const
  IMAGE1_WIDTH=80;
  IMAGE1_DEPTH=100;
  IMAGE1_LENGTH=370;
  IMAGE1 : array [1..370] of Char = (
     #1,#16,'─','─','┤', #9,#17,'▌','K','r','y','s','t','e','l',' ','U',
    's','e','r',' ','E','d','i','t','o','r',' ','v','0','.','0','1','ß',
    '▐', #1,#16,'├',#26,'/','─',#24,' ','┌',#26,'K','─','┐',#24,' ','│',
    ' ', #3,'H','a','n','d','l','e',#25, #6,#15,':',#25,'<', #1,'│',#24,
    ' ','│',' ', #3,'P','a','s','s','w','o','r','d',#25, #4,#15,':',#25,
    '<', #1,'│',#24,' ','│',' ', #3,'P','h','o','n','e',' ','#',#25, #5,
    #15,':',#25,'<', #1,'│',#24,' ','│',' ', #3,'A','c','c','e','s','s',
    ' ','L','e','v','e','l',' ',#15,':',#25,'<', #1,'│',#24,' ','└',#26,
    'K','─','┘',#24,#24,#24,#24,' ','┌','─','│', #9,#17,'▌','K','r','y',
    's','t','e','l',' ','U','s','e','r',' ','E','d','i','t','o','r',' ',
    'C','o','m','m','a','n','d','s','▐', #1,#16,'├',#26,'*','─','┐',#24,
    ' ','│',#25,'K','│',#24,' ','│',#25,'K','│',#24,' ','│',#25,'K','│',
    #24,' ','└',#26,'K','─','┘',#24,#24,#25, #3, #7,'K','r','y','s','t',
    'e','l',' ','U','s','e','r',' ','E','d','i','t','o','r',' ','(','c',
    ')','1','9','9','5',' ','K','r','y','s','t','a','l','i','n','e',' ',
    'P','r','o','d','u','c','t','s',' ','&',' ','G','r','o','o','v','e',
    'n',' ','D','e','s','i','g','n','s','(','t','m',')','.',#24,#24,#24,
    #24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,
    #24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,
    #24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,
    #24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,
    #24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24);

type screentype = array [0..3999] of byte;

var
  ScreenAddr : ScreenType absolute $B800:$0000;

procedure UNCRUNCH (var Addr1,Addr2; BlkLen:Integer);
begin
  inline (
    $1E/
    $C5/$B6/ADDR1/
    $C4/$BE/ADDR2/
    $8B/$8E/BLKLEN/
    $E3/$5B/
    $8B/$D7/
    $33/$C0/
    $FC/
    $AC/
    $3C/$20/
    $72/$05/
    $AB/
    $E2/$F8/
    $EB/$4C/
    $3C/$10/
    $73/$07/
    $80/$E4/$F0/
    $0A/$E0/
    $EB/$F1/
    $3C/$18/
    $74/$13/
    $73/$19/
    $2C/$10/
    $02/$C0/
    $02/$C0/
    $02/$C0/
    $02/$C0/
    $80/$E4/$8F/
    $0A/$E0/
    $EB/$DA/
    $81/$C2/$A0/$00/
    $8B/$FA/
    $EB/$D2/
    $3C/$1B/
    $72/$07/
    $75/$CC/
    $80/$F4/$80/
    $EB/$C7/
    $3C/$19/
    $8B/$D9/
    $AC/
    $8A/$C8/
    $B0/$20/
    $74/$02/
    $AC/
    $4B/
    $32/$ED/
    $41/
    $F3/$AB/
    $8B/$CB/
    $49/
    $E0/$AA/
    $1F);
end;

procedure write_picture(pic : string);
begin
  if pic= 'editor' then UnCrunch (IMAGE1,ScreenAddr[ (1 * 2) + (1 * 160) -162],IMAGE1_LENGTH);
end;

begin
end.